﻿Imports System.Data.SqlClient
Imports System.Data
Public Class frmValidacion
    Private mMantenimientoBE As BE.Usuarios
    Private lista As New List(Of Banco.BE.Usuarios)
    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Dim cmd As SqlCommand
        Dim myReader As SqlDataReader
        mMantenimientoBE = New BE.Usuarios
        Dim estado As Integer

        Try
            cmd = New SqlCommand("Validacion", con)
            cmd.CommandType = 4
            With cmd.Parameters
                con.Open()
                .AddWithValue("@NombreUsuario", txtNombre.Text.ToString)
                .AddWithValue("@Contraseña", txtContraseña.Text.ToString)
            End With
            myReader = cmd.ExecuteReader()
            'estado = mMantenimientoBE.Estado


            ' estado = mMantenimientoBE.Estado
            'myReader.Close()
            If myReader.HasRows = True Then
                '  If estado = 1 Then
                frmUsuarioLista.Visible = True
                Me.Visible = False
                MsgBox("Bienvenido....", vbInformation)
                'Else
                '    MsgBox("Usuario Inactivo", vbInformation)
                'End If

            Else
                MsgBox("Datos incorrectos....", vbInformation)
                txtNombre.Text = ""
                txtContraseña.Text = ""
                txtContraseña.Focus()

            End If
        Catch ex As Exception : MsgBox(ex.Message)


        End Try
        con.Close()
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Close()
    End Sub
End Class
